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iU MICRO 
ATPOMAIRDEOSO 



ESCOLHA CAMINHO A 



SEGUIR 




DECISOES MAIS COMPLICADAS 

APRENDA A UTILIZAR 

COMANDO IF.. .THEN. ..ELSE 



Embora nao tenha c^rebro, o computador 
tem capacidade para decidir de 
forma Itigica. Aprenda a trabalhar com 
a instru93o IF, ..THEN e ensine seu 
micro a tomar decisoes corretamente. 



O que coma um computador infini- 
tameme superior a uma maquina de cal- 
cular e sua capacidade de tomar decisoes 
baseadas em raciocinios logicos. Um 
desses raciocfnios € o comando 
IF...THEN. O computador rcage a es- 
sa declaraf io de modo semelhante a um 
ser humano: SE (IF) isto e verdadeiro, 
ENTAO (THEN) faca lal coisa, Eis um 
exemplo: 

IF A < 18 (ou seja, SE A e menor que 
18) THEN PRINT "menor de idade" 
(ENTAO IMPRIMA "menor de idade") 

Ao encontrar a declaraijao IF, o com- 
putador verifica se a proposifao que a 
segue e verdadeira. Se for, ele executa 
tudo o que estiver apos o THEN, Se a 
proposi^ao e falsa, ele ignora o resto e 
passa para a proxima linha do programa. 

Voc§ vera como funciona tudo isso 
no programa a seguir. 



S][S}fffi 



10 PRINT "Dlgite a liata das no 

taa- 

20 PRINT "Digite -99 para termi 

nar' 

30 INPUT N 

40 IF N--99 THEN PRINT 'M^dla ■ 

* ;T/C:STOP 
50 LET T-T+N 
60 LET C-C+1 
70 GOTO 30 

A mensagem no infcio do programa 
inslrui o usuario a digitar primeiro uma 
Usta de notas e por fim o niimero -99. 
As Unhas 25 e 26 zeram o valor das va- 
ridveis do total (T) e do contador (C), 
A Hnha 30 di entrada ao valor que vo- 
ce diglia. A linha 50 adiciona esse valor 
ao total corrente, e a linha 60 conta 
quantos numeros voce digitou, adicio- 
nando 1 ^ varidvel do contador cada vez 
que um novo niimero € dado. 

Enquanto voce estiver digitando no- 





tas reals, o computador ignorard a linha 
40 e seguira em frente, mas, quando vo- 
ce digital -99, a condifao da linha 40 
N = -99 serd satisfeita, e o computador 
imprimira a media das notas (T/C). Nii- 
meros como -99 sao chamados de ficii- 
cios, ou terminais, e sao ilteis para con- 
trolar o que acontece em um programa. 
Este e um recurso muito usado para in- 
terroiTiper partes de um programa. 



UMA ESCOLHA COM TRES CAUINHOS 



E se voce quiser escolher entre tres ou 
mais alternativas, de modo a colocar o 
computador em diferentes curses de 
a^ao? £ simples: o computador sorteia 
um mimero que voce tern de adivinhar; 
ao comparar o seu palpite com o mime- 
ro sorteado, ele elabora trSs alternativas: 
o patpite foi correto, foi muito baixo, 
ou muito alto. Tudo se passa, portan- 
lo, como num jogo de advinhagao. 

DQ 

5 CLS 

10 LET N-aND(ZOJ 

20 PRINT "ACABO DE IMAGINAR UM 
NUHERO ..." 

30 PRINT 'TENTE ADIVINHA-LO! " 
140 INPUT G 
50 IF G-N THEN PRINT "MUITO BEM 



]":F0R D-1 TO 2000:NEXT D:G0T0 



10 






60 


IF GCN THEN PRINT 


"ESTA BAIX 


0, 


TENTE OUTRA VEZ!" 




70 


IF G>N THEN PRINT 


"MUITO ALT 


0! 


TENTE DE NOVO. " 




80 


GOTO 40 





Aten^ao: digite o programa abaixo 
em maiiisculas, se quiser executa-lo nos 
compativeis com ZX-8I: 

5 CLS 
10 LET N-INT (RND*20)+1 
20 PRINT 'Eu acabo de imaaina 
r um nunero. " 

30 PRINT "Tente adivinha-lo. " 
40 INPUT G 

50 IF G-N THEN PRINT "Muito 
beni": PAUSE 100: GOTO 10 
60 IF G<N THEN PRINT "Esta b 
aixo; tente outra vez ! " 
70 IF G>N THEN PRINT "Muito 

altoi Tente de novo." 
90 GOTO 40 



f^mm 



O programa abaixo, como estd, ro- 
dara apenas nos micros tipo MSX. Pa- 



ra roda-lo no Apple II e no TK-2000, 
elimine a linha 3 e substitua o comando 
da linha 5 por HOME. 

3 R-RNDi-TIME) 

5 CLS 

10 LET N-INT{RND(1)*21) 

20 PRINT "Acabo de penaar e um 

nLimero" 

30 PRINT "...sera que vocfi cona 

egue advmhi-lo ?" 

40 INPUT G 

50 IF G-N THEN PRINT "Certo. mu 

ito ben!":FOa D-1 TO 2000:NEXT 

D:GOTO 5 

60 IF G<N THEN PRINT "Multo ba l 

jio , tente outra vez . " 

70 IF G>N THEN PRINT "Alto deKa 

is, tente outra vez." 

80 GOTO 40 

A linha 10 escolhe um nijmero ao 
acaso entre 1 e 20, e as linhas 20 a 40 
convidam voce a adivinha-lo. Qualquer 
que seja sua resposta. o computador ve- 
rifica, nas linhas 50, 60 e 70, que pro- 
posigao e verdadeira. 

Suponha que seu palpite seja um nii- 
mero abaixo do sorteado, Neste caso, o 
computador vai primeiro para a linha 
50; mas P = N e falso, de modo que ele 
ignora o resto da linha e passa para a 



seguinte, a linha 60. Agora, a proposi- 
fao e verdadeira, visto que P<N. En- 
tao, ele imprime a mensagem '"Muito 
baixo, tente novamente". A seguir, ele 
passa assim mesmo para a prdxima li- 
nha, onde a proposJ9ao ^ falsa, de for- 
ma que ele a ignora e vai para a 80, que 
leva voce de volta para outra tentativa. 

Este prograraa funciona muito bem, 
mas tem uma desvantagem: ele continua 
a pedir um novo patpite ao jogador, sem 
se importar se este quer ou nao conti- 
nuar jogando. Seria intcressante fazer 
com que o computador preguntasse se 
voce quer fazer uma nova tentativa. 

As proximas linhas fazem exatamente 
isso. Ocomando IF... THEN serd nova- 
mente utilizado, s6 que desta vez o com- 
putador estari comparando letras e nao 
niimeros. 

Antes de entri-las em adi^ao ao pro- 
grama anterior, nao esquega de mudar 
a linha 50 para: 

50 IF G-N THEN PRINT "CERTO, 
MUITO BEM!"; GOTO 100 



QD 



100 PRINT "QUER JOGAR DE NOVO?( 

3/N) ' 

110 LET AS"INKEYS:IF A$=""THEN 

GOTO 110 

120 IF AS-"S" THEN RUN 



100 PRINT "Voce quer tentar ou 
tra vez{S/N)7" 

110 LET AS-INKEYS: IF AS<>"S" 
AND ASO'N" THEN GOTO 110 
120 IF AS-"S- THEN RUN 



fi^aiE] 



Aten^ao: para poder rodar o progra- 
ma abaixo em computadores tipo Ap- 
ple e TK-2000, substitua a linha 

110 GET AS 

100 PRINT , , 'Quer jogar outra v 

ez {S/N)?" 

110 LET AI-INKEYS: IF AS""" THE 

N GOTO 110 

120 IF AS-'S" OR A$-"s" THEN GO 

TO 5 

A linha 110 espera que voce acione 
uma tecla. Caso seja o "S" maiiisculo, 
o programa continuard. Se quaJquer ou- 
tra tecla for acionada, o programa ter- 
minard. 



CHECAGEM OUPLA 



Para fa^er o computador testar duas 
ou mais condigoes, antes de decidir que 
caminho tomar, use palavras especiais 
chamadas operadores (dgicos: 

100 IF DS="D0MING0" AND H-20 
THEN PRINT "E' MORA DQ 
FANTAGTICO" 

Quando voce usa AND (a conjungao 
e, em ingies) entre duas condigoes, am- 
bas devem ser verdadeiras para que o 
computador execute o resto da linha. Se 
uma delas ou as duas forem falsas, ele 
passara para a prdxima linha. Nesse 
exemplo 6 necessdrio que sejam 20 bo- 
ras de um domingo para que o compu- 
tador imprima mensagem. Veja outro 
exemplo; 

200 IF P$-"EAGi;" OR 

P$-"TAPI0CA" THEN PRINT 
"NAO ESTOU con FOME" 

Essa linha usa OR (ou, em ingles) e 
computador imprimird a mensagem 
no caso de pelo menos uma das compa- 
ra(;6es ser verdadeira, 

O teste pode vir a ser muito compli- 
cado se houver uma quantidade muito 
grande de condiipoes para verificar. Se 
voce tem virios AND e OR juntos, ter^ 
que usar parenteses para que o compu- 
tador saiba o que verificar primeiro. 

Uma linha de um jogo de aventuras 
pode se parecer com isto: 

ZOOO IF P=14 AND (C3="ESPADA" 
OR C5=" FACA') THEN PRINT 
"UOCE DESTRUIU GREMLIN" 

Isso sd e verdadeiro se voce estiver na 
posi^ao 14 E com uma espada OU uma 
faca. Mude os parenteses: 

2000 IF (P=14 AND C$-"ESPADA") 
OR CS="FACA'' THEN PRINT 
-VOCE DESTRUIU GREMLIN" 

Agora ela sera verdadeira se voce es- 
tiver na posigao 14 com uraa espada OU 
se estiver em qualquer lugar com uma 
faca. 



TIRE A SOHTE GRANDE 



Agora, usando os conceitos que 
aprendemos, vamos programar um Jo- 
guinho que Simula uma miquina caipa- 
niqueis. Ela faz um bom uso de AND 
e OR. Tente tirar a sorte grande! 



40 LET M-M-5 

50 IF M<0 THEN PRINT "DESCULPE. 

. . VOCE ESTA OURO! ' : END 

60 LET A-RND(1Z)+192 

70 LET B-RND(12)+192 

80 LET C-RMD(12)+192 

210 PRINT §237,CHH5 (A) :PRINTe23 

9,CHRS{B) : PRINT e241,CHRS(C) 

220 IF A=B AND B-C THEN PRINT # 

258, "VOCE QANHOU S50!1!':LET M- 

M+50 

230 IF CA-B OR B=C) AND AOC T 

HEN PRINT 6361, "VOCE GANHOU SIO 

! " :LET M-M+10 

240 FOR D=l TO 500:NEXT 

250 PRINT 6323, "QUER JOGAR OUTR 

A VEZ? (S/N) ": PRINT 6361, "'UOCE T 

EM S" ;M 



D 

20 LET M-50 
30 CLS 




OS OPERADORES L6GIC0S 

Se voc^ n§o estS acostumado com 
OS simbolos usados em matemStica pa- 
ra expressar relagoes I6gicas, como 
"maior que" e "menor que" — os cha- 
mados operadores — pode ach^-tos 
meio confusos, no infcio. 

Assim, pense neles como uma es- 
p^cie de cunha. No sfmbolo > o lado 
mais aberto, i esquerda, 6 maior do 
que lado mais agudo (a pontal. No 
sfmbolo < o lado mais estreito, ^ es- 
querda, 6 menor do que o lado direito. 
Deste modo, aexpressao A>B deveser 
lida simplesmente: A 6 maior do que B. 
Colocar a sins! de igualdade < = ) ao la- 
do de um dos operadores pcfevios sig- 
nifica tamb^m que pode ser "maior ou 
igual a" ou "menor ou igual a". 

Els aqui a lista de todas as combi- 
na^oes possfveis: 



A = B 
A>B 
A<B 

A> =B 

A< =e 

AoB 



A 6 iguat a B 
A 6 maior que B 
A 6 menor que B 
A 6 maior ou igual 
A 6| menor ou igual 
A d diferente de B 



a B 
a B 



Alguns computadores exigem que a 
ordem de digitapao dos operadores 
compostos seja sempre a mesma. Por 
exemplo, nao se pode digitar > = ou 
= > indistintamente: eles nao v§o acei- 
tar. Em outros micros, o esquema 6 
mais liberal. 

Nos computadores da linha Sinclair 
OS operadores compostos sao digitados 
atiav^s de uma linica tecla. Dessa for- 
ma, se vocS tentar entrar o sinal < se- 
guido do sinal = , por exemplo, a linha 
gera um erro de sintaxe. 

Finalmente, alguns computadores 
aceitam tamb^m o sinal # (sustenidol, 
para significar "diferente de". 



II 



PROGRAMACAO BASIC 




Po&so combinar dois ou mais IF. ..THEN 
em uma unica linha? 

Sim, mas esta nao 6 uma id6ia mui- 
to boa, pois dificulta muito a compreen- 
sao de como funclona um proc'fama e 
pode gerar erros l6gicos. 

princfpio b^sico da declara^ao 
IF... THEN 6 que o que vem depois do 
THEN na linha do IF, s6 seri executa- 
do se 3 proposipao for verdadeira. As- 
sim, na linha: 

70 IF X-V THEN PRINT "NAVE 
DESTRUIDA" : LET NAVES= 

NAVES-1:G0T0 30 

Nenhuma das instrupoes ap6s o 
THEN serS executada, se X for diferen- 
te de Y. Mas, algumas vezes o IF com- 
posto pode ser util: 

70 IF X=y THEN PRINT "NAyE 

DEETBUIDA" ; IF NAyES>OiTHEN 
LET NAVES=NAVES-1 

80 IF X = Y AND hfAyES=0 THEN 
PRINT "FIM DO JOGO":END 

Note como os dots IFs na linha 70 
simplificami a programagao. 



For que ocorrem arros quando lento ro- 
dai' programas digitados? 

Pode ser que existam falhas no pro- 
grama em si, mas os erros mais co- 
muns sao de digita^ao, quando se est^ 
copiando. Els aiguns deles (lembre-se 
de chec^-los um a um, quando estiver 
copiando programas): 

— Confundir a letra maiOscula I ou a le- 
tra L minuscula com o numero 1; ou 
ainda a letra O maiuscula com o zero. 

— Confundir par§nteses com os stnais 
de maior {>) e menor (<). Confundir 
o cifrao (SI com a letra S, ou omitt-los. 

— Omitir as aspas no comepo ou no 
fim, em comando PRINT ou LET. Omi- 
tir OS dois pontos (:) entre instru^Ses 
na mesma linha. 

— Esquecer a vlrgula entre dois (tens 
de uma declaragSo DATA, o que pode 
delerminar um nOmero muito grande 
para o computador, ou a falta de um 
item quando o computador chega ao fi- 
nal dos DATA. 

— Omitir um sinal de menos (em um 
programa que gera grdf icos na tela, is- 
so pode resultar em uma tentativa de 
desenhar a!6m dos seus iimites). 

— Omitir um sinal de ponto e vfrgula no 
final de umg linha PRINT ou coiocar um 
numero de espagos em branco mator 
ou menor do que o previsto. 



260 LET KS-INKEYS:IF KS-"" THEN 

GOTO 260 
270 IF KS""S" THEN GOTO 30 
280 END 



20 LET M-SO 

30 CLE 

40 LET M-M-5 

50 IF M<0 THEN PRINT "Deacul 

pe... Voce esta dure>!': STOP 

60 LET A-INT (RND*12> -t-130 

70 LET B-INT {RND*i2)+130 

80 LET C-INT (RND*12)+130 

210 PHINT PAPEH 0; INK 4 : AT 

10,14:CHRS A; AT 10.I6;CHRS B; 

AT 10,18:CHR$ C 

220 IF A-B AND B-C THEN 

PRINT AT 13, 2; "Voce Qanhou S50 

! ! ! " : LET H-H+SO 

230 IF (A-B OR B-C) AND AOC 

THEN PRINT AT 13,9; "Voce ganh 

ou $101": LET M-M+10 

240 PAUSE 25 

250 PRINT AT 15,6; "Quer jogar 

outra vez7(S/N)"; PRINT TAB 10 

; "Voce tern S' ;M 

260 IF INKEYS-"" THEN GOTO 

260 

270 IF INKEYS-"n" THEN STOP 

280 GOTO 30 



f^ 



20 LET M-SO 

30 CLS 

40 M-M-S 

SO IF M<0 THEN PRINT "Desculpe, 

aeu dinheiro acabou.":END 
60 LET A-INT CRND{l)*5+66) 
70 LET B-INT (HNDCl)*5+66) 
80 LET C-INT(RND(l)*5+66) 
90 LOCATE 17, 10: PRINT CHRS(1)+C 
HRS(A)i" ";CHHS(1)+CHR$CB) ;" " ; 
CHRS{1)+CHRS{C} 

220 IF A-B AND B-C THEN LOCATE 
2, 16: PRINT " Voce ganhou o prfim 
10 maxiuio ... 350": LET M-PH-50 
230 IF (A-B OR B-C) AND AOC TB 
EN LOCATE 10, 16: PRINT "Vocfi gan 
hou SIO' :LET M-M+10 
240 FOR D-1 TO 500:NEXT 
250 LOCATE 5, 18: PRINT " Quer te 
ntar outra vez ? <B/N} " 
260 LOCATE 12, 20: PRINT "VocS te 
m S";M;"- "; 
270 LET K$-IMKEVS:IF K$-'" THEN 

GOTO 270 
280 IF KS-"3" OH KS-"S" THEN GO 
TO 30 
290 END 



DE 



Como o Apple 11 nao tem caracteres 
grificos pre-definidos, a versio a seguir 
Taz na tela blocos coloridos (simbolos do 
caga-niqueis): 



40 LET M - H - 5 

50 IF M < THEN UTAB 22; PRI 

NT "DESCULPE. VOCE ESTA DURO" : 

END 

60 LET A - INT C RND (1) * 12 

+ 4) 
70 LET B - INT C RND (1) * 12 

+ 4) 
80 LET C - INT ( RND (1) * 12 

+ 4) 
85 COLOR- A: VLIN 0,39 AT 16 
90 COLOR- B: VLIN 0,39 AT 18 
95 COLOR- C: VLIN 0,39 AT 20 
110 IF A - B AND B-C THEN V 
TAB 22: PRINT "VOCE GANHOU S50 
" ; LET M - M + 50 
120 IF (A - B OR B - C) AND A 
< > C THEN VTAB 22: PRINT "VO 
CE GANHOU SIO"; LET M-M+10 
130 FOR I - 1 TO 500; NEXT I 
140 VTAB 22: PRINT 'OUTRA VEZ? 

(S/N)7": PRINT "VOCE TEM S";M 
150 GET AS 

160 IF AS - "N" THEN END 
170 GOTO 30 



20 
30 



LET M - 50 
HOME : GR 



A versao para o TK-2000 usa os ca- 
racteres do teclado. So as linhas que se- 
rao substiiui'das no programa acima 
aparecem abaixo: 

30 HOME 

60 LET A - INT ( RND (1> * 12 

) + 222 

70 LET B - INT { RND (1) * 12 

) + 222 

80 LET C - INT { RND (1) * 12 

) + 222 

90 VTAB 10 

iOO PHINT TAB( 18); CHRS (242 

); CHRS (A); TAB ( 209; CHRS {24 

2): CHR$ (B) ; TAB t 22); CHRS (2 

42) ; CHRS tC) 

O programa usa varias linhas 
IF.. .THEN. A primeira, de numero 50, 
checa se voce tem dinheiro para jogar, 
Se voce tem, a linha € ignorada, mas, 
se nao, uma mensagem e moslrada, e o 
jogo termina. 

As linhas 60 a 80 escolhem tres nu- 
meros aleatorios, e a linha 210 converte 
esses niimeros em caracteres (no caso 
dos computadores das linhas TRS- 
Color, Spectrum e MSX, naipes de ba- 
ralho) e os coloca no centro da tela. O 
Sinclair e o TRS-Color convertem esses 
niimeros em calacteres. Os outros neces- 
sitam de ajustes. 

Na linha 220, se os tres caracteres sao 
iguais, voce ganha o Jack pot (maior 
premio) e seu dinheiro e aumentado em 
$50. Na linha 230 voce ganha S 1 0'se dois 
caracteres adjacentes sao iguais (A = B 
ou B = C), mas nao ganha nada se os 
dois caracteres das extremidades sao 
iguais. Se voce nSo ganhar nada, o com- 
putador ignora as linhas 220 e 230 e pas- 



sa para a 240, que provoca uma breve 
pausa. 

As linhas seguintes sSo uma outra 
versao da rotina "sim/nao" que checam 
se voce quer uma nova jogada. 



IF. ..THEN. ..ELSE 



Em alguns computadores voce pode 
escrever a instrucao IF de uma forma 
muito mais poderosa, chamada de 
IF...THEN...ELSE. Veja urn exempio; 

10 INPUT IDADE 

20 IF IDADE<ie THEN PRINT 

"MENOR DE IDADE" ELSE PRINT 

"ELEGIUEL" 

Esta linha faz exatamente o que diz. 
Se voce tern menos de 1 8 anos, o com- 
putador imprime "MENOR DE IDA- 
DE". mas, se voce tiver 18 ou mais, ele 
imprimira "ELEGIVEL" 

Dos computadores que apresentam a 
declarai;ao IF. ..THEN.. .ELSE em seu 
repert6rio de BASIC apenas os das li- 
nhas TRS-80 e MSX estao ilustrados 
aqu). 

Com a instrui^o IF... THEN... ELSE 
o programa fica mais facsl de ler e es- 
crever. No entanto, ela nao e essencial. 
Voce pode escrever programas sem ela 
se o seu computador usa apenas 
IF.. .THEN. Existem duas maneiras de 
contornar o problema, Uma emprega 
IF.. .THEN seguido de GOTO para pu- 
tar para a parte requedda do programa; 

10 INPUT IDAPE 

20 IF IDADE<18 THEN PRINT 

"MENOR DE IDADE" :GOTO 30 
25 PRINT "ELEGIVEL" 
30 ...reatante do programa 

Esse tipo de programai^ao serve para 
OS micros que permitem comandos mul- 
tiphs por Unhct, isto e, a colocagao de 
mais de uma in.strui;ao na linha do IF. 
Os compativeis com o ZX-81 nao con- 
tarn com essa possibilidade, A segunda 
solu?ao do problema ap6ia-se num 
IF.. .THEN extra para assegurar que tc- 
das as possibilldades sejam cobertas: 

10 INPUT IDADE 

20 IF IDADE<18 THEN PRINT 

•MENOR DE IDADE" 
25 IF IDADE >-18 THEM PRINT 

-ELEGIVEL" 
30 ...reatante do p^rograma 

Como dois IFs demoram mais tem- 
po do que urn sd para serem executados 
(e isso e importante quando o mesmo 
trecho de programa deve ser executado 
muitas vezes), outro estilo de programa- 
fao de alternativas e: 




10 INPUT IDADE 



20 
22 



IF IDADE>=18 THEN GOTO 25 
PRINT 'MENOR DE IDADE" 

24 GOTO 30 

25 PRINT "ELEGIVEL" 
.reatQ do programa 

Nas duas ultimas programacoes, i 
mais dificil entender o fluxo de desvios 
do que programa com apenas uma li- 
nha IF... THEN... ELSE. 



'^ vV 



11^ ^1 PROGRAMACAODiJOGOS 




Jogos com labirintos complicados 
exigem programas muito longos. 
Mas voci pode construir alguns 
bem simples com pouco mais do que 
urn lapo e declara^oes DATA. 



Jogos com iabirlntos exerceram sem- 
pre um grandc fasdnio sobre usudriosde 
corapiitadores, e variafoes do tao co- 
nhecido "Come-come'* {PacMan) con- 
tinuam a a'parecer constamemente no 
mercado. 

Este artigo Ihe ensina a entrar na on- 
da e fazer um emocionante jogo de la- 
birinto. 

O labirimo, nesta primeira tentativa, 
nao inclui "inimigos" ou obstaculos, 
que exigiriam um programa bem maior. 
Mas eie mostra como fazer para que os 
personagens do seu jogo nao atravessem 
as paredes e inclui tambem cronometra- 
gem. manuten^ao de um placar e uma 
rotina de registro de recordes, para dar 
mais compeiitividade ao jogo. 



150 NEXT m 

160 NEXT n 

9000 DATA "PPPPPPPPPPPPPPP" 

'p . -P' 

"P.PP.PP.PP.PP-P" 

'p.P PP" 

'p. . .p.p. p. p. . .P" 
'p.PPP.p.P.PPP.P" 

'P P-P P" 

' PPPP . PP . PP . PPPP" 

' p ..... p . p P " 

'P.PPP.P-P.PPP.P" 
'p. . .P.P.p.p. . -P" 

'p.p P.P" 

'P.PP-PP.PP-PP-P" 

9130 DATA "p p" 

9140 DATA "PPPPPPPPPPPPPPP" 



9010 DATA 
9020 DATA 
9030 DATA 
9040 DATA 
9050 DATA 
9060 DATA 
9070 DATA 
9080 DATA 
9090 DATA 
9100 DATA 
9110 DATA 
9120 DATA 



A maneira mais Mcil de compreender 
como OS jogos com labirinto funcionam 
nos micros da linha Sinclair Spectrum, 
como TK90X, e ir por etapas; 

100 FOB n-3 TO 17 
110 READ aS 
120 FOR iB-7 TO 21 
130 PRINT AT n,ni;"." 
140 IF aS(B-6)»"p" THEN PRINT 
PAPER 1; INK 1 ; AT n , m ; " " 



As linhas 100, 120, 150 e 160, usan- 
do um par dos nossos ja conhecidos la- 
gos FOR. ..NEXT, determinam os limi- 
tes do labirinto. A linha 130 imprime um 
ponto em cada posigao da tela dentro 
desses limites. 

As linhas 1 1 e 1 40 leem os dados das 
linhas 9000 a 9140 e substituem o pon- 
to por um espago em fundo azul, onde 
o padrao dos dados mostrar um "p". 



Isto e possivel porque o TK90X nunca 
coloca dois caracteres na mesma posi- 
ijao; entao, o ultimo loma o lugar do 
primeiro. 



"COME-COME' 



Um labirinto e iniitil se nao h^ nin- 
gu^m ou algo para andar dentro dele. 
Entao execute o programa acima para 
ver como fica e depots acione as seguin- 
tes linhas: 

50 LET x-10 
60 LET Y-14 
1000 PRINT PAPER 6! INK 2 ; AT X 

y - " * " 

1010 LET XX-X 

1020 LET yy-y 

1030 IF INKEYS-'" 

30 

1040 IF INKEYS-"W 

1 ,Y)<>9 THEN LET 

1050 IF INKEYS-"Z 

l,y)<>9 THEN LET x-x+1 

1060 IF INKEY$-"a" AND ATTR (x, 



THEN GOTO 10 

" AND ATTR Cx- 
x-x-1 
" AND ATTR (x+ 
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OS PRINCIPIQS DA CRIAQAO 

DE UM LABIRINTO 

CONSTRUA UM LABIRINTO 



COM LA C OS E COMANDOS DATA 
CONTROLE TEMPO 



E PLACAR 



COMO MOVER UMA FIGURA 



PELO UBIRINTO 



FACA PARED ES 



INTRANSPONIVEIS 



Y-l)<>9 THEN LET y-y-1 

1070 IF INKEYS-"3" AND ATTR (x, 

Y+l)<>9 THEN LET y-y+1 

1080 PRINT INK 7; AT XX . YY ; " " 

1090 GOTO 1000 

Como todos OS personagens famosos 
dos jogos, nosso amigo asterisco i po- 
skionado em x,y e se movimenta, aos 
sens comandos, por uma serie de linhas 
usando INKEVS. 

Aqui, no entanto, ha uma determi- 
nada diferen<;a vital: ele so podc mover- 
se para uma posigao se esta nao for azul. 
Ou seja, se ATTR nao for igual a 9, sen- 
do 9 o valor num^rjco da cor com a qua! 
voce imprimiu as linhas do seu labirinto. 

No caso de voce querer criar urn la- 
birinto de outra cor, veja como chegar 
ao valor de ATTR: 

1. Tome valor da cor do caractere 
(INK), como esti no teclado do compu- 
tador — neste caso 1 . 

2, Tome o valor da cor da tela (PA- 
PER) — neste caso I — e multiplique 
por 8. Resuitado, 8. 



3. Adicione 64 se a irea em questao 
e Clara (BRIGHT). Neste caso, resuita- 
do 0. 

4. Adicione 128 se a area esta piscan- 
do (FLASH). No caso. resuitado 0. 

Some entao todos os numeros. O re- 
suitado serd o valor de ATTR. 

A fun^ao ATTR no TK90X tem, en- 
tretanto, outros usos al^m de impedir 
que o seu personagem atravesse paredes 
s61idas. 

Em um labirinto maior, voce pode- 
ria usar a mesma ideia para fazer com 
que ele exploda ao entrar em uma zona 
proibida. Para um labirinto que use ca- 
racteres (INK) vermelhos sobre fundo 
(PAPER) vermelho, voce necessitaria 
uma linha comegando com: 

IF ATTB=18 THEN. . . 

As linhas 1010, 1020 e 1080 definem 
a posicao que o personagem acabou de 
deixar e apagam o ponto que ele "co- 
meu", imprimindo um espago. Estas 
sao linhas liteis em qualquer jogo, mas 
note onde elas aparecem — as primei- 
ras linhas, antes das INKEYS, respon- 



s^veis pela a(;ao, e a linha final, logo 
apos estas, 

A linha 1090 e lemporaria e sera rces- 
crita depois. Seu prop6sito 6 permitir 
que voc6 rode o programa e o teste. Sem 
fechar o la^o, o caractere se moveria 
apenas uma vez. 



TEMPO E PLACAR 



Para que esse jogo possa ser jogado, 
sem contar com "inimigos" que exigj- 
riam um programa muito complexo, o 
melhor e uma rotina de cronometragem 
e placar. 

Adicione estas linhas: 

10 LET bt-lOOOOO 

40 LET 3-0 
990 POKE 23672.0: POKE 23673,0 
1025 IF S-110 THEN GOTO 2000 
1090 IF ATTR (x,Y)<>63 THEN LE 
T a-a+1: SOUND .005.10 
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2000 LET 1-{PEEK 23672+256*PEEK 

23673)/50 
2010 PRINT AT l,6;t:" SEGUNDOS 

m 

2020 IF t<bt THEN LET bt-t 
2030 PRINT AT 19,4;"Melhor temp 
O: ";bt;" segundoa" 

Acrescentando uma linha tempora- 
ria. Lembre-se de apag4-la depois; 

liOO GOTO 1000 

O ptacar d muiio simples. A linha 40 
coloca a contagem inicial em zero. A li- 
niia 1090 adiciona 1 cada vez que o 
"Come-come" devora mais um ponio, 
ou melhor, sempre que ele cruza um es- 
pafo em que INK e PAPER sao ambos 
brancos — ATTR novamente, 

E a linha 1025, que entra em aijac 
quando todos foram comidos, faz com 
que o computador verifique quanto tem- 
po o jogador ievou para chegar a esse 
ponto. 

JA a cronomeiragem e um pouco 
mais complicada. Ate que voc§ com- 
preenda os comandos PEEK e POKE, 
que serao expiicados num artigo p]-6xi- 
mo, procure assimilar o procedimemo 
que se segue, 

Em resumo, a hnha 990 zera o relo- 
gio do TK90X ao jogar o valor num 
endere<;o de memorta apropriado. A li- 
nha 2000 coma mimero de linhas for- 
madas pela tela desde que o jogo come- 
50U e entao divide por 50 — o mimero 
de linhas por segundo em um televisor. 

Ao mesmo tempo, a linha 10 deter- 
mina o "melhor tempo" inicial em 
100000, muito mais que qualquer um ie- 
varia, de forma que ele sera baiido. A 
linha 2020 compara o novo tempo com 
o "melhor tempo". 



OUTRA VEZ7 



Para dar ao jogador a chance de ou- 
tra tentativa, use estas novas linhas. Pri- 
meiro, pressione <CAPS SH1FT> e 
< BREAK > e, entao, < ENTER >: 

2040 PRINT AT 20 , 2 ; " Pregsi one q 

ualquer tecla para jogar de n 

ovo . " ; 

2050 IF INKEYSO"" THEN GOTO 2 

050 

2060 IF INKEYS-"" THEN GOTO 20 

60 

20 70 RESTORE 

2080 GOTO 40 



OUTROS LABIRINTOS 



Se voce quiser tentar outros labirin- 
tos do mesmo tamanho, pode faze-lo, 
mudando o padrao de letras "p" das li- 
nhas DATA, da linha 9000 em dLante. 
Se ftzer isso, assegure-se de ler dados su- 
ficientes para completar o labirinto ou 
teri uma mensagem de erro antes que 
aparega na tela. 



Estas primeiras linhas formam o la- 
birinto propriamente dito: 

30 CLS4 

40 LET P=297 

1000 FOR N-0 TO 15 

READ A3 

PRINT eCN*32)+6,A$; 

FOR M=0 TO IB 

IF PEEK(1024+(N«32)+6+M)=6 
POKE tl024+(N*32)+6+M) . 17 



1010 

1020 

1030 

1040 

5 THEN 

5 

1050 NEXT 



1060 NEXT N 

2000 DATA AAAAAAAAAAAAAAAAAAA 

2010 DATA A AAA A 

2020 DATA A.AA,AA AA.AA.A 

2030 DATA A. A AAA A. A 

2040 DATA A. . .A. A A. A. . A 

2050 DATA A. AAA. AA . A . AA . AAA . A 

2060 DATA A. . .A A. . ,A 

Z070 DATA AAA. . .A.AAA.A. . ,AAA 

20B0 DATA AAA. . .A. AAA. A. . .AAA 

2090 DATA A. . .A A. . ,A 

2100 DATA A.AAA.AA.A.AA.AAA.A 

2110 DATA A. ..A. A A. A. ..A 

2120 DATA A. A AAA A. A 

2130 DATA A . AA . AA . . . . . AA . AA . A 

2140 DATA A AAA A 

2150 DATA AAAAAAAAAAAAAAAAAAA 

A forma do labirinto esta contida nas 
linhas de dados (DATA), de 2000 a 
2150. Nesse estagio os limites dele sao 
representados por letras "A". 

Antes que os dados sejam lidos, a li- 
nha 30 limpa a tela e a coloca na cor ver- 
melha, cujo codigo e 4, A linha 40, por 
sua vez, coloca o asterisco na posigao 
inicial. 

As hnhas de 1000 a 1060 desenham 
o labirinto na tela. Ao mesmo tempo, 
sempre que o lago FOR. ..NEXT das li- 
nhas 1000 e 1060 e executado, o progra- 
ma le a proxima linha de dados 
(DATA), 

A linha 1010 le os dados e os chama 
de A$. A linha 1020 coloca-os na te!a. 

A linha 1040 verifica a porfao da me- 
moria da maquina que corresponde a 
cada posi^ao de tela. Se o endere(;o de 
memoria conicm o mimero 65, temos 
um "A" na tela, e ele ^ mudado para 
um bloco azul (codigo 175). .^s linhas 
1030 e 1050 fornecem o loop com que 



A versao para o TRS-Color mostra o tempo empregado. 
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a linha 1040 verifica todas as posi(;6es 
da tela. 

Agora adicione essas linhas e voce 
podera deslocar um honienzinho pelo la- 
birinto. 

1080 PRINT SP.-*"; 
1090 LET LP=P 

1100 IF PEEK (340') -247 AND PEEK C 

10Z3+P)<>175 THEN LET P-P-1 

1110 IF PEEK(33a)-247 AND PEEK ( 

1025+P)<>175 THEN LET P-P+1 

1120 IF PEEK (339) -251 AND PEEK ( 
992+P)<>175 THEN LET P=P-32 

1130 IF PEEK(342)-253 AND PEEK ( 

1056+P)<>175 THEN LET P-P+32 
1150 PRINT §LP," "; 
1170 GOTO 1080 

Esta parte do programa permite que 
voce mova o seu caractere pelo labirin- 
to. Ela tem algumas particularidades. O 
homem so pode ser movimentado se o 
ponto para onde se quer leva-lo nao con- 
tern urn bloco azul, A linha 1 100 verifi- 
ca conteiido de duas posi(;6es de me- 
morial a que corresponde a tecla "Z" 
e a que corresponde a posigao de tela em 
que o homem vai entrar. Se a lecla "Z" 
(c6digo 223) esta sendo pressionada e o 
endere^o de tela nao contem um bloco 
azul (codigo 175), entao ele pode se mo- 
vimentar. 

As teclas para controle de movimen- 
to sao as mesmas ja utilizadas; "Z" pa- 
ra a esquerda, "X" para a direita, "P" 
para cima e "L" para baixo. Tente an- 
dar com o asterisco pelo labirinto de for- 
ma que OS pontos sejam apagados. 
Acrescente estas linhas e marque o tem- 
panecessario para "comer" os pontos: 



<ENTEH>" ; 
PARA COMECAR" ; 
DE NOVO" ; 

T 



20 LET FA-999999 

50 RESTORE 
60 LET D-0 
1070 TIMEfl=0 

1140 IF PEEK(1024+P)-110 THEN P 
LAY "T80B":LET D-D+1 
1160 IF D-153 THEN GOTO 1180 
1180 PRINT 6P, " " ; 
1190 TI=TIMER/50 
1200 PRINT 662, "TEMPO-" ; 
1210 PRINT §84,TI;"SEG "; 
1220 IF FA>TI THEN FA-TI 
1230 PRINT e212,"MELHOB TEMPO"; 
1240 PRINT e244,FA;"SEG "; 
1250 PRINT 6340."PRESSIONE"; 
1260 PRINT 6372 
1270 PRINT 6404 
1280 PRINT 6436 
1290 LET IN5-INKEY$ :IF INS- 
HEN GOTO 1290 

1300 IF INS-CHR$(13) THEN GOTO 
40 
1310 GOTO 1290 

Quando voce executa este programa 
pode verificar a direita do labirinto o 
tempo gasto para remover os pontos e 
tambem o melhor tempo. 

Inicialmente, o melhor tempo e co- 
locado em 999999 segundos pela linha 
20. A linha 60 zera o placar, e a linha 
1070 zera o "cronomeiro". 

A linha 1 140 examina a posi^ao em 
que o asterisco esta, para ver se ha um 
ponto. Em caso positive, o comando 
PLAY e usado para emitir um *'W/p*' 
enquanto o ponto e apagado. Ela tam- 
bem adiciona um ponto a D, que con- 
tem o mimero de pontos "comidos". 

A linha 1 160 verifica se nao ha mais 
pontos na tela. Se este.s terminaram, o 
programa pula para a linha 1 180, que 



apaga o asterisco. 

A declarafao TI = TIMER/50 na li- 
nha 1 190 para o relogio e divide o que 
est^ sendo lido por 50, para transformi- 
lo em segundos. 

As linhas 1200 e 1210 most ram o tem- 
po na tela, 

A linha 1220 checa se o melhor tem- 
po (FA) € maior que o obtido na liltima 
contagem. Se for, ele e igualado a este. 
As linhas 3230e 1 240 mostram o melhor 
tempo, antes que uma mensagcm oriente 
o jogador a teclar < ENTER > para re- 
comegar 

A linha 1290 aguarda, ate que uma 
tecla seja pressionada, e a 1300 verifica 
se foi < ENTER >. Neste caso o jogo 
recome(;a. O RESTORE na linha 50 per- 
mite que OS dados (DATA) possam ser 
lidos novamentc. Se <ENTER> nao 
foi teclada, o computador continua es- 
perando outra entrada. 

A tecla < BREAK > , finalmente, ter- 
mina o jogo. 



CONSTRUA SEUS PROPRIOS LABtRlNTOS 



Use papel quadriculado para dese- 
nhar seus labirintos. Tenha sempre em 
mente o tamanho da tela do computa- 
dor: 32 por 16 caracteres. 

Desenhado o novo labirinto, altere o 
conteudo das linhas DATA. Se o novo 
labirinto for maior ou menor que o an- 
tigo, voce terd que modificar o tamanho 
do lago FOR... NEXT (hnhas 1000 e 
1030). Conte quantas linhas o novo la- 
birinto ocupa e subtraia 1 , Coloque o re- 
sultado no lugar do ultimo niimero da 
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linha lOOO. Da mesma forma, faga a 

contagem do niimero de posi?6es da pri- 
meira linha e subtraia 1 . Coloque, em 
seguida, esse mimero no lugar de 18 no 
fim da linha 1030. 

Finalmente, conte quantos pontes 
cxistem no seu novo labirinto, Se encon- 
trar um numero diferente de 153, alters 
a linha 1 160 tarn hem, substituindo 153 
pelo novo numero. 

Estas primeiras linhas constituem o 
labirinto propriamente dito: 

10 SCREEN 1: COLOR 1,3,3 

40 LET P-247 

70 VPOKE BASE (6) +5. 26 

eO VPOKE BASE(6)+1, 102 

90 LOCATE 0,3 

100 FOR N-O TO 15 

110 READ AS 

120 PRINT TAB (4) ;A$ 

130 FOR M-0 TO 18 

140 IF WPEEK(BASE<5)+102+N*32+M 

)-65 THEN ypOKE BASE (5) +102+N«3 

2+M,8 

150 NEXT M 

160 NEXT N 

1000 DATA AAAAAAAAAAAAAAAAAAA 

1010 DATA A AAA A 

1020 DATA A.AA.AA AA.AA.A 

1030 DATA A. A AAA A. A 

1040 DATA A. . .A.A A.A. . .A 

1050 DATA A.AAA.AA.A.AA.AAA.A 

1060 DATA A. . .A .A. . -A 

1070 DATA AAA. . .A-AAA.A. . .AAA 
lOSO DATA AAA. . .A. AAA. A. . .AAA 

1090 DATA A. . .A A. . .A 

1100 DATA A.AAA.AA.A.AA.AAA.A 

1110 DATA A. . .A.A A.A. . -A 

1120 DATA A.A AAA. . . . .A.A 

1130 DATA A.AA.AA AA.AA.A 



1140 DATA A. .... . .AAA A 

1150 DATA AAAAAAAAAAAAAAAAAAA 

As linhas de dados (DATA), de 1000 
a 1150 encerram a forma do labirinto, 
Os limites deste sao representados por 
letras "A". 

Antes que os dados sejam lidos, a li- 
nha 10 limpa a tela, introduzindo-a no 
modo grafico de 32 colunas (comando 
SCREEN), e fixa a cor de fundo e de 
frente (comando COLOR). A linha 40 
define a posi9ao inicial do "Come- 
come" (que seri representado por um 
asterisco). 

As linhas de 100 a 160 desenham o 
labirinto na tela. Sempre que o laifo 
FOR... NEXT da-s linhas 100 e 160 e exe- 
cutado, o programa le a proxima linha 
de dados (DATA). A linha 1 10 le os da- 
dos, denominando-os de A$. A linha 
120 coloca-os na tela. 

Todos esses pontes e letras "A" com- 
binados nao formam, contudo, um la- 
birinto de verdadc. Assim, a linha 140 
verifica a porpao da mem6ria da maqui- 
na que corresponde a cada posicao de 
tela. Isso e feito com a fungao VPOKE 
BASE (5), que torna acessivel a mem6- 
ria dedicada de video do MSX, na cha- 
mada pdgina 5. Se o endere^o de mem6- 
ria cont^m o niimero 65, isso quer dizer 
que temos um "A" na tela e elc e mu- 
dado para um bloco azul (c6digo 8). As 
linhas 130 e 150 fornecem o la^o que 
permite que a linha 140 verifique todas 
as posi(;des da tela. 

Agora adicione estas linhas e deslo- 
que um homenzinho pelo labirinto. 



^ « PT 


THEN 195 


AND 


VPEEKCBA 


LET 


P-P-1 


AND 


VPEEKtBA 


LET 


P-P+1 


AND 


VPEEKCBA 


LET P-P-32 



60 VPOKE BASE (6) +31, 170 

180 VPOKE BASE(5)+P.ASC( 

190 LET LP-P 

195 K$-INKEYS:IF K$ 

200 IF KS-CHRS(29) 

SE{5)+P-l}<>e THEN 

210 IF K$-CHR$(28) 

SE{5)+P+l)<>e THEN 

220 IF K$-CHHS(30) 

SE(5)+P-32)<>e THEN 

230 IF KS-CHRS(31) AND VPEEKtBA 

SE{5)+P+32)<>e THEN LET P-P+32 

250 VPOKE BASE (5>+LP, 255 

270 GOTO 180 

O movimento do caractere pelo labi- 
rinto s6 e possivel se o ponto para onde 
se quer lev^-lo nao contem um bloco 
azul. A linha 200 verifica se uma tecla 
foi apertada e qual e o conteudo de duas 
posigoes de memoria: a que correspon- 
de k tecla de movimentagao do cursor 
"flecha para baixo" e a que correspon- 
de k posigao de tela em que o homem 
vai entrar. Se a (ecla (codigo 29) esta 
sendo pressionada, e o enderefo de tela 
nao contem um bloco azul (c6digo 8), 
ele pode se movimentar. 

As tectas para controle de movimen- 
to sao as usadas para a movimenta^ao 
do cursor (marcadas com as flechas nas 
quatro diregoes). Experimenie deslocar 
o asterisco e "comer" (apagar) os pon- 
tinhos . 

Adicione estas linhas e marque o tem- 
po para "comer" os pontes: 

20 FA-999999! 

30 RESTORE 

50 LET D-0 

170 TIME-0 

240 IF VPEEK(BASE(5)+P)-46 THEN 
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SOUND 7,7: SOUND 6,0; SOUND 8,15 
: SOUND 8,0: LET D-D+1 
260 IF D-153 THEN GOTO 280 
280 UPOKE BASE(5)+P,255 
290 LET TI-INT{TIM£/50) 
300 LOCATE 7,1: PRINT "TEMPO-" iT 
I;"SEG '; 

310 IF FA>Tr THEN FA-TI 
320 LOCATE 3, 20: PRINT 'MELHOH T 
EMPO-" ;FA; "SEG "; 
330 LOCATE 7,21: PRINT "Aperte R 
ETURN " ; 
390 LET K$-INKEYSiIF K$-"" THEN 

390 
400 IF KS-CHRS(13) THEN GOTO 30 
410 GOTO 390 

O tempo gasto para remover os pon- 
tes, assim como o tnelhor tempo, e mos- 
trado a direita do labirinto, quando vo- 
c5 executa este programa. De im'cio, o 
meihor tempo i colocado em 999999 se- 
gundos pela linha 20, A linha 50 zera o 
placar, e a linha 170 zera o "cro- 
nometro". 

A linha 240 examina a posigao em 
que o asterisco esta, para ver se ha um 
ponto. Em caso positivo, o comando 
SOUND e usado para emitir um "blip" 
enquanto o ponto e apagado. Ela lam- 
bem acrescenta um ponto a D, que con- 
tem o numero de pontos "comidos". A 
linha 260 verifica se nao hi mais pon- 
tes na tela. Se estes terminaram, o pro- 
grama pula para a linha 280, que apaga 
o asterisco. Acionamos aqui o coman- 
do VPOKE, como acima. 

A declara?ao TI = INT{TIME/50), 
agora na linha 290, para o rel6gio e di- 
vide o que esta sendo lido por 50 para 
transforma-lo em segundos. A linha 300 
mostra o tempo na tela. 



meihor tempo (FA) e maior que o tem- 
po obtido na ultima contagem, Se foi, 
ele e igualado a este ultimo. A linha 320 
mostra o meihor tempo, antes que uma 
mensagem diga ao jogador para recome- 
Car, teclando < ENTER >. 

A linha 390 aguarda ate que uma te- 
cla tehha sido pressionada, e a linha 400 
verifica se foi < ENTER > . Neste caso, 
o jogo recomepa. O RESTORE na linha 
30 permite que os dados (DATA) pos- 
sam ser lidos novamente. Se alguma te- 
cla diferente de < ENTER > foi pressio- 
nada, o computador continua esperan- 
do outra entrada. 

O comando < CTRL >< STOP > 
encerra o jogo. 



Estas primeiras linhas formam o la- 
birinto propriamente dito: 



2020 DATA "A.AA.AA AA . AA . 

A" 

2030 DATA "A. A AAA A. 

A" 

2040 DATA "A... A. A A. A... 

A" 

2050 DATA 

A" 

2060 DATA 

A" 

2070 DATA " AAA . . . A . AAA. A, . . AA 



'A.AAA.AA.A.AA.AAA. 
'A. , .A A. . . 



2060 DATA "AAA 

A" 

2090 DATA 

A" 

2100 DATA 

A" 

2110 DATA 

A" 

2120 DATA 

A" 

2130 DATA "A.AA.AA 

A" 

214 DATA "A AAA 



A. AAA. A. . .AA 

A. . .A A. . . 

A.AAA.AA.A.AA.AAA. 

A. . .A. A A. A. . . 

A. A AAA A. 

, .AA.AA. 



30 
40 



HOME : GH 
LET M - 18: 



LET N - 4 



1000 FOR I = TO 15 
1010 READ A$ 
1020 FOE J - 1 TO 19 
1025 IF MIDS (A$.J,1) 
HEN COLOR- 3: PLOT 2 * 
: PLOT 2*J+1,2*I: 
* J,2 * I + 1: PLOT 2 * 
« I + 1 

IF MIO$ (A$,J,1) 
COLOR- 12 



- "A" T 
J, 2 * I 
PLOT 2 
J + 1,2 



2150 DATA " AAAAAAAAAAAAAAAAAA 
A" 

Os limites do labirinto s5o represen- 
tados, neste estagio, tal como em exem- 
plos anteriores, por tetras "A". Da mes- 
ma forma, seus contornos estao conti- 
dos nas linhas de dados (DATA), de 
2000 a 2150. Portanto, o programa so 



1030 

HEN 

I 

1050 

1060 

2000 

A" 

2010 

A" 



PLOT 2 * J,2 * 



NEXT 
NEXT 

DATA 



"AAAAAAAAAAAAAAAAAA 




funcionari se forem adicionadas essas 
tinhas. E relativamente facil alterar a 
forma para um novo labirinto: basta 
modificar as linhas de 2000 a 2150. 

Antes que os dados sejam lidos, a li- 
nha 30 limpa a tela e a coloca num mo- 
do grafico de baixa resoiufao. A linha 
40 coioca o asterisco na posipao incial. 

As linhas de 1000 a 1060 desenham 
o labirinto na tela. A cada vez que o la- 
go FOR.. .NEXT das linhas 1000 e 1060 
e executado, o programa le a proxima 
iinba de dados (DATA). A linha 1010 
le OS dados, e os chama A$. A linha 
1025 coloca-os na tela, na forma de qua- 
dradinhos coloridos (cor = 3 onde hou- 
ver a letra A, e cor= 12 cm outros 
pontes). 

Agora adicione estas linhas e voce po- 
derd deslocar, mais uma vez, um ho- 
menzinho pelo labirinto. 

1080 COLOR- 1: PLOT 2 * M,2 * 
N: PLOT 2*M:+i.2*N: PLOT 2 

* M,2 * N + 1: PLOT 2 * M + 1. 
2 * N + 1 

1090 LET PM - M: LET PN - N 
1100 IF PEEK C - 16384) - 218 

AND SCRN( 2 * (M - 1),2 * N) 

< > 3 THEN LET M - M - 1 
1110 IF PEEK ( - 16384) - 216 

AND SCRN( 2 * (M + 13 ,2 * N) 

< > 3 THEN LET H - M + 1 
1120 IF PEEK t - 16384) - 208 

AND SCRN( 2*11,2* (N-1)) 

< > 3 THEN LET N - N - 1 
1130 IF PEEK ( - 16384) - 204 

AND SCRN( 2*M,2*(N+1)) 

< > 3 THEN LET N - N + 1 
1150 COL0R= 0: PLOT 2 « PM, 2 * 

PN; PLOT 2 * PM + 1,2 * PN: PL 
OT 2 * PM,2 • PN + 1: PLOT 2 * 
PM + 1 , 2 * PN + 1 
1170 GOTO 1080 

Esta parte do programa da a voce a 
possibilidade de movimentar o caracte- 
re pelo labirinto. Para que haja movi- 
mento, porem, o ponto para onde se 
quer levar o caractere (nosso homenzi- 




nho) nao deve conter nenhum bloco de 
cor 12. 

A linha 1 lOO, pOT exemplo, verifica 
o conteiido de duas posipSes de mem6- 
ria: a que corresponde a tecia "Z" e a 
que corresponde a posigao de tela em 
que o homem vai entrar. Se a tecla "Z" 
(codigo 218) csti sendo pressionada, e 
endere^'o de tela nao contem um blo- 
co grafico, entao ele pode se movi- 
mentar. 

As teclas para controle de movimen- 
to sao as mesmas ja utilizadas anterior- 
mente: "Z" para a esquerda, "X" pa- 
ra a dlreita. "P" para cima e '*L" para 
baixo. 

Marque o tempo itecessdrio para 
"comer" todos os pontes, acrescentan- 
do eslas linhas: 

20 LET FA - 99999 

50 RESTORE 

60 LET D - 

10 ?0 LET TI - 

1140 IF SCHNt 2 * M,2 * N) - 

12 THEN LET W - PEEK ( - 1633 

6) : LET D - D + 1 

1150 COLOR- Oi PLOT 2 * PM,2 * 

PN: PLOT 2 * PM + 1.2 * PN: PL 
or 2 * PM,2 * PN + 1: PLOT 2 * 
PM + 1 , 2 * PN + 1 
1160 IF D • 153 THEN GOTO 119 


1170 GOTO 1080 

1180 COLOR- 0: PLOT 2 * M,2 * 
N: PLOT 2*M+1,2*N: PLOT 2 

* M,2 * N + 1: PLOT 2 * M + 1, 
2 * N + 1 

1200 HTAB 9: VTAB 21: PRINT "S 
eu tempo foi de "iTI / 5;" seg" 
1210 IF FA > TI THEN LET FA - 

TI 
1220 HTAB 11: VTAB 22; PRINT " 
Melhor tempo; "iFA / 5;" seg" 
1230 HTAB 6; VTAB 23: PRINT 'P 
re33lorie RETURN para contmuar" 
1240 GET TS: IF ASC (T$) < > 

13 THEN GOTO 1210 
1250 GOTO 40 

De inicio, o melhor tempo i coloca- 
do cm 999999 segundos peia linha 20. 
A linha 60 zera o placar e a linha 1070 
zera o "cronometro". A linha 1095 au- 
menta uma posigSo no cronometro. A 
linha 1 140 examina a posi(;ao em que o 
astcrisco esta. Ela tambdm adiciona um 
ponto a D, que contem o numero de 
pontos que foram "comidos", 

A linha 1 160 verifica se nao ha mais 
pontos na tela (em mimero de 153). Se 
estes terminaram, o programa pula pa- 
ra a linha 1 180, que apaga o asterisco. 



A linha 1200 mostra o tempo na tela 
(que e convertido para segundos 
dividindo-se FA por 50). 

A linha 1210 checa se o melhor tem- 
po (FA) i maior que o tempo obtido na 
ultima conlagem. Em caso positive, ele 
e igualado a este ultimo. A linha 1220 
mostra o melhor tempo, antes que uma 
mensagem diga ao jogador para teclar 
<ENTER> para recomegar (na linha 
1230). 

A linha 1290 aguarda at^ que uma te- 
cla tenha sido pressionada, e a linha 
1300 verifica se foi < ENTER > . Neste 
caso, o jogo recomega. O RESTORE na 
linha 50 permite que os dados (DATA) 
possam ser lidos novarticnte. Caso tenha 
sido acionada uma tecla que nao < EN- 
TER > , o computador continua a espe- 
ra de outra entrada. A teda <CTRL- 
C> termina o jogo. 




CONVERSAO DO COLOR 
PARA TRS 80 

Os micros TRS-80 e TRS -Color t§m 
interpretadores BASIC simitares, no 
que dii respeito ao nilcleo basico de co- 
mandos, fungoes e declaragoes, Por is- 
so, 6 fScil converter programas de um 
modelo para outro, As maiores diferen- 
i;as residem nos comandos de alta re- 
solugao gr^fica, cor e som- Os 
comandos CIS (limpa telas), SET e 
POINT (pontos grSficos de resoluqao 
medial e PRINT@ sao semeihantes nas 
duas linhas. As diferengas de sintaxe 
do TRS-80 em relapao ao Color sao: o 
CLS, SET e o POINT nSo t§m para- 
metro indicattvo de cor de fundo (tela 
de texto), e as locagoes de tela usadas 
com o PRINT@ produzem resultados 
diferentes. 

A tela do Color tern dezesseis linhas 
por 32 colunas, e a do TRS-80, dezes- 
seis linhas por 64 colunas. Come as po- 
sipoes de tela usadas pelo PR1NT@ sao 
numeradas seqiiencialmente, um 
PRINT@ 162, por exemplo, escreveri 
na segunda coluna da sexta linha do 
TRS-Color, e na 32.* posipao da tercei- 
ra linha, no TRS-80. 

Hi uma forma simples de converter 
comandos PRINT® do Color para o 
TRS-80: se N for a locupao de tela do 
Color, sua correspondente no TRS-80 
ser^ 
INT (N/32) *64+M-32 

para a segunda linha em diante (a que 
comeija na posig:ao 32 do Color). Se 
M < 32, nao h6 necessidade da f6rmu- 
la aclma: a iocugao de tela do TRS-80 
serS o prOprio N. 



I PEXtFiRtCOS t 



COMO DESGOMPLICAR 
SAVES E LOADS 



APRENDA A CONECTAR 



GRAVADOR 



COMANDO DE GRAVACAO 
VERIFIQUE SUAS FITAS 
COMANDO DE LEITURA 



Quatquer crianca e capaz de fazer 
funcionar urn gravador. Quando 
se trata de conectalo ao computador, 
porem, as coisas podem se 
complicar. Saiba como sair dessa, 
come^ando por ajustar os controles. 



Alguns problemas podem surgir 
quando se quer gravar ou carregar pro- 
gramas com um gravador cassete. As 
causas desses problemas nem sempre sao 
identificaveis. Mas e possivel esiabele- 
cer algumas rotinas que dimimiam as 
margens de erro. 



SAIBA CONECTAR CORRETAMENTE 



Aiguns micros empregam um grava- 
dor especial do tipo digital, que tem uma 
Ugai;ao unica e direta com a maquina; 
essa caracteristica elimina qualquer pro- 
blema na instala?ao. Mas a maioria dos 
comput adores pode ser ligada a um gra- 
vador cassete, freqiientemente utilizan- 
do mais que um tipo de cabo, Normal- 
mente, a liga^io e feita por meio de um 
piugue do tipo DIN tigado a trSs plugues 
de pino {/agues), mas pode-se encontrar 
tambem um conector DID em cada uma 
das pontas, com ou sem jaques em pa- 
ralelo. Se voce comprar um cabo ou usar 
um priprio para audio, assegure-se de 
que ele e adequado: caso nao seja, apa- 
recerao problemas como interferencias 
em cabos nao blindados. 

Se voce usa o gravador com freqiien- 
cia, e aconselhavel deixar o cabo perma- 
nentemente ligado dos dois lados. 



AJUSTE OS CONTROLES 



O passo inicial e mais importante na 
adequa?ao com o computador e ajustar 
OS controles de volume, tonalidade e ou- 
tras caracteristicas do gravador. Se vo* 
ce tem um gravador especial para com- 
putadores, siga as instrugoes que o 
acompanham. 

Se seu gravador e do tipo comum, co- 
mece desligando todos os controles es- 




peciais, como Tiltros e sistemas de redu- 
gao de ruido (Dolby), etc. Ajuste o con- 
trole de tonalidade para o maximo de 
agudos (a tonalidade e controlada ou 
por um dial numerado, ou por um in- 
terruptor de duas posigoes grave/agu- 
do), Deixe a tonalidade assim sempre 
que voce usa-lo com o computador. Es- 
colha um volume m^dio (entre 50 e 60% 
do mdximo) e tente carregar {com os co- 
mandos LOAD, CLOAD, etc., depen- 
dendo do computador) um programa ja 
gravado, como por exemplo o da fita de 
demonstratao que acompanha sua mA- 
quina. Se o programa nao carrega, au- 
mente o volume pouco a pouco e repita 
a operacao, at6 conseguir um bom re- 
sultado. 

Se voce alcangar o volume miximo 
ainda sem sucesso, volte o seletor at6 um 
ponto levemente abalxo daquete em que 
voce comeifou e repita toda a operagao, 
diminuindo o volume aos poucos. 

Caso o programa nao carregue em 
nenhum nivel de volume, verifique as 
conexoes riovamente. Tente outro cabo 
ou outra fita, ou pe^a emprestado um 



gravador adequado ao seu tipo de com- 
putador. Se, depois disso, e!e continuar 
sem funcionar, procure o seu re- 
vendedor. 

Quando tiver encontrado um volume 
que permita o carregamento, observe a 
posisjao do controie, estabele^ja os limi- 
ics superior e inferior com os quais vo- 
ce consegue carregar o programa e mar- 
que o ponto m^dio para uso posterior. 
Voce pode usar o mesmo volume para 
gravacao, mesmo porque muitos grava- 
dores tem um conlrole automatico des- 
se volume. 

Para testar se o volume e adequado 
para gravai^ao, limpe a memdria do 
computador {digite NEW e pressione 
< ENTER > a seguir) e digite este pe- 
queno programa. 



(EEl^^ 



10 REM TESTE D£ GRAVACAO 

20 REM 

3 REM 

40 REM 

50 REM FIM DO TESTE 



^53 



II 



II r HMfimos i ~%\ 




EXTERMINADOR DE PROBLEMAS 

— Utilize um gravador cassete mo- 
nosural (isto 6, que nao seja est^reo), 
de marca confidvel e, se possfvel, 
reserve-o para uso exclusivo com o 
computador. Ligue-o sempre ci rede ei6- 
trica, ao invds de usar pilhas, para as- 
segurar uma rotagSo uniforme do 
motor. 

— Evite usar aparelhos estereofoni- 
cos, a nao ser que todos os seus recur- 
sos especiais possam ser desligados. 

— Use fitas magn^ticas para dudio 
de boa qualidade ou especiais para da- 
dos. Uma fita de mS qualidade nao re- 
sistird por muito tempo a vdrias regra- 
vagoes. 

— Procure instmpoes especfficas na 
tela; o gravadof deve ficar com a tecia 
PLAY acionada atd que a operapao de 
carga esteja completsda. 

— Altere as caracterlsticas de tona- 
lidade, voiume e outros controles se a 
carga do programa nio for bem-su- 
cedida. 

■- Afaste o gravador da TV ou mo- 
nitor se um programa que ji carregou 
uma vez nio funcionar. Tente tamb6m 
uma outra gravagSo do programa para 
ver se funciona. Em case afirmativo, a 
primeira fita deve ter sido danificada. 



— Se for necessSrio ajustar o volu- 
me com freqiJSncia, de programa para 
programa, marque o volume adequado 
na etiqueta da fita. 

— Guarde suas fitas em lugar seco, 
livre de poeira e longe de fontes eletro- 
magn^ticas e do calor. 



Siga entSo a rotina para gravagao no 
computador, acionando SAVE on CSA- 
VE. Ao carrega-lo (comando LOAD ou 
CLOAD) e listd-lo (LIST) voce obtera 
o programa de volta. 



COMANDO DE GRAVACAO 



O comando de gravaipao de fita nio 
e um comando padrao do BASIC, va- 
riando muito entre os computadores. A 
maneira correta de manipula-lo e geral- 
mente explicada no manual que acom- 
panha o micro. Alguns passos iniciais, 
por^m, sao importantes. 

Antes de gravar qualquer programa, 
coloque uma fita de boa qualidade no 
gravador, tendo o cuidado de roda-la 
um pouco para que a guia de plastico 
transparente, existente no comego {lea- 
der), nao fique em contato com o ca- 
becote. 

A seguir, escolha um nome adequa- 
do para seu programa. Os dados sao ar- 
mazenados na forma de "arquivos" de 
um tipo ou outro, independentemente 
do m^todo real de armazenamento. 
Mas, para gravagoes feitas em ftta, no- 
mes especiais sao empregados com o co- 
mando SAVE, de modo a identificar na 
fita qual o programa gravado (isso e util 
para achar automaticamente o progra- 
ma, depois, atrav^s do comando 
LOAD). 

O nome do arquivo ou programa po- 
de ser qualquer combinagao de caracte- 
res ou simbolos contidos no tamanho^ 



miximo permitido para uma linha no 
seu computador. Na maioria das maqui- 
nas, esse tamanho e de dez caracieres no 
raaximo. Outros computadores, como o 
TRS-80, permiiem apenas uma letra ou 
slmbolo de identificagao do programa: 
quando o nome e maior, os comandos 
CSAVE e CLOAD reduzem-no k pri- 
meira letra. 



SAVE 
SAVE 
CSAVE 



'NOMEPaOGOl' 

'NomeProgOl' 



Dos computadores considerados 
aqui, apenas os compativeis com Apple 
II nao exigem aspas. 

Os exemptos de comandos SAVE aci- 
ma sao validos, mas um deles usa letras 
maiusculas e minusculas. Se voce 
mistur^-fas num nome de programa, de- 
ve fazer o mesmo quando quiser carre- 
gar o programa. 



SAVE 
SAVE 
SAVE 



"NOME. PROG" 
"NOME/PROO" 
"NOME (PROG) 




' PLUGUE DE 7 PINOS DIN 



Se o seu computador estd ligado ao 
controle remoto do gravador, ligue os 
controles para gravagao, digite o nome 
do programa desejado ap6s o comando 
SAVE e tecle < ENTER > ou < RE- 
TURN >. O computador assumira o 
controle do gravador ate que a opera- 
930 de gravagao esteja completada. 

Se o controle ^ manual, digite o co- 
mando SAVE e nome do programa, 
coloque o gravador em funcionamento 
e entao tecle < ENTER > ou < RE- 
TURN > . Espere ate que o sinal de 



PERIFEItlCl 



prontidao reaparepa na tela e desligue 
o gravador. 

O tempo exigido para o carregamen- 
to de um programa depende de dois fa- 
tores: seu tamanho, em termos de u&o 
de meitibria, e a veJocidade do fluxo de 
dados entre o gravador e o computador, 
Esta 6 fixa em alguns equipamentos e 
variavd em outros. 



CONECTOR DIN FEMEA DE 5 PINOS 



Ei»i aqui dniti tipos de 

cabii que voce pode ulilizar 

para coneclar o !>eu computador 

a um gravador, Verifique em seti 

manual a disposi^o oorreta 

dt}» pinuh ((.-anio inferior esquerdo). 




As gravaipoes mais confiaveis sao fei- 
tas na velocidade mais baixa. Altas ve- 
locidades usam menos fita e, obviamen- 
te, operam mais rapido. Nesse caso € im- 
portance usar fitas de alta qualidade. 



VERIFtQUE AS GRAVACOES 



Uma maneira de veriftcai se um pro- 
grama foi gravado adequadamente e 
carrega-lo e executa-lo. Quando a gra- 
vaijao e imperfeita o programa que esta 
na membria (e que voce quer gravar) e 
substiiuido por aquele que estd na fita, 
e a gravafao se perde. Se esta tiver sido 
bem-sucedida, nao havera probleraas. 

Muitos computadores contornam es- 
sa dificuidade fornecendo um comando 
verificador (por exemplo, VERIFY). O 
seu uso exige o rebobinamento da fita 
ate o inicio do programa. Entao 
executa-se o comando usando o mesmo 
nome que se deu ao programa ao grava- 
io. Por exemplo: 



VERIF? "NOMEPROGOl" 

O computador le o programa da fita 
e compara com aquele que est^ na me- 
m6ria. Se houver falha, apareceri na te- 
la uma mensagem de erro. 

Os computadores da iinha TRS-80 
usam o comando CLOAD? para a ta- 
refa de verifica?ao. Outros micros, po- 
r^m (como os compativeis com o Sin- 
clair ZX-81), n3o tem qualquer fun^ao 
de verifica*;ao. Recorra, nesse caso, a 
programas de revistas especializadas ou 
vendidos k parte. 



COMANDO DE LEITURA 



Se voce come^ar com programas pre- 
gravados, seus primeiros problemas se- 
rao com o comando dc leitura (LOAD). 
Podem existir varias formas do coman- 
do LOAD, mesmo para uma linica ma- 
quina. Eis uma delas: 

LOAD "NOMEPROGOl" 

Outros computadores utilizam a for- 
ma CLOAD (iinha TRS-80), LOADA 
ou LOADT (TK-2000). etc. 

O comando LOAD deve reproduzir 
nome utitizado para gravagao (SAVE) 
e verificacao (VERIFY). Para que o 
computador leia os sinais da fita mag- 
netica, basta digitar LOAD e pressionar 
a tecla PLAY do gravador. Ele procu- 
rard pelo nome do programa e mostra- 
ra todos que encontrar pelo caminho, 
at^ encontrar aquek que confere com o 



nome indicado juntamente com o 
LOAD. Quando esse nome for encon- 
trado, OS dados que o seguem serao au- 
tomaticamente carregados na mcmoria 
do computador. Em muitos tipos de 
computador, o processo de leitura po- 
de ser acompanhado na tela de video por 
meio de indicadores. Na tinha TRS-80, 
por exemplo, aparece um asterisco pis- 
cando no canto superior direito da tela. 
Em outras, o niimero de bytes ou de bio- 
cos de bytes lidos e roostrado conti- 
nuamente. 

Se o gravador esti ligado ao contro- 
le remoto, a fita estaca ao final do pro- 
cesso de carregamento, mas voc§ ainda 
precisa apertar a tecla STOP no grava- 
dor. Se controle e manual, simples- 
mente aperte STOP quando o cursor 
reaparecer na tela. Evite que a tecla 
PLAY fique acionada desnecessaria- 
mente, porque isso pode provocar o des- 
gaste premature ou deformacao da po- 
lia tratora. 

Quando voce usar o comando LOAD 
ou equivalente, o programa que for car- 
regado tomara o lugar de qualquer ou- 
tro que esteja na RAM (Memdria de 
Acesso Randomico) do computador. 
Por isso, assegure-se de ter gravado o 
programa resistente na mem6ria antes 
de carregar o proximo. 

Rebobine a fita ate o inicio do pro- 
grama-teste que foi apresentado 1^ em 
cima. e tente carreg^-lo (LOAD) usan- 
do o nome que voce escolheu. Em caso 
de dificuidade, consulte o guia de reso- 
luQao de problemas, neste artigo. 

Outras formas do comando LOAD 
sao necessdrias para tornar acessiveis da- 
dos em c6digo de mdquina (por exem- 
plo, BLOAD), para realocar programas 
e para juntar um programa a outro 
(MERGE). Seu primeiro contato com 
elas pode ter sido em instrucoes de jo- 
gos comprados ao acaso. 
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APIRENDA ARBTIMETDCA 
HEXADECBMAL 



Os circuilos internos dos tomputado- 
res utilizam, como vimos, apenas nume- 
ros binarios para realizar opera?6es arit- 
meticas. Ora, esse sistema de numera- 
gao, composto dos digitos e 1, cria 
uma s^rie de dificuldades de compreen- 
sao e manipulatjao para os operadores. 

Em primeiro lugar, os numeros bina- 
ries de oito e dezesseis bits (os mais usa- 
dos em microcomputadores) tornam-se 
confuses e dificeis de reconhecer, com 
tantos Os e Is. Digita-los.no computa- 
dor e uma empresa dificil, sujeita fre- 
qiientemente a erros e incorregoes. 

A maneira de contornar esses proble- 
mas consists em fazer com que o ope- 
rador ou programador em nivel de ma- 
quina passe a utiiizar um sistema nume- 
rico com outra base, mas que alnda se- 
ja proximo, em concepijao, ao sistema 
binario utilizado pelo computador. 

O sistema universalmente adoiado 
para isso e o hexadecimal (ou hexa), no 
qiiai OS niimeros utilizam a base 16. E 
por que o hexa funciona tao bem com 
computadores? 

Antes de mais nada, ele estd suficien- 
temente proximo do decimal para ser to- 
Icrado por nos, simples mortals. Mas, 
alem disso, 16 e uma potencia de 2 (co- 
mo 8 lambem o e, em outro sistema 
muito usado com computadores, o oc- 
lal). Isso significa que a conversao en- 
tre OS sistemas — binaries e hexa — , nos 
dois sentidos, e bem mais simples do que 
entre o primeiro e o sistema decimal. 

A linica dificuldade e que um siste- 
ma com base maior do que 10 precisa 
criar novos algarismos, alem dos que 
existem entre Oe 9. No sistema hexade- 
cimal utilizam -se letras adicionais (sem- 
pre em maiiisculas). O tO decimal e re- 
presentado por A, o 1 1 por B, o 12 por 
C, 13 por D, 14 por E e o 15 por F. 

Tudo se passa como se tivessemos oi- 
to dedos em cada mao, Essa imagem po- 
de parecer estranha ou mesmo mons- 
iruosa, pois dificilmente suportamos al- 
terafoes em nossa aparencia ffsica. Na 
pratica, porem, e isso que aconiece. 



COMO CONVERTER BINARIO EM HEXA 



A conversao de numeros bindrios de 
oito bit"! io<i mais utiiizados em compu- 
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Se todos tivessemos dezesseis dedos, 
sistema num^rico mais comum seria 
certamente o hexadecimal. Em bora isso 
nao aconte^a, esse sistema e 
fundamental para o c6digo de maquina. 



POR QUE SISTEMA 



HEXADECIMAL EUTILIZADQ 
CONTANDODE 16 EM 16 



A RELACAO ENTRE OS 



SISTEMAS BINARIO E 



HEXADECIMAL 
CONVERSOES FACEtS DE 



BINARIO PARA HEXA 



CONVERSAO DE DECIMAL 



PARA HEXA 



tadores pessoais) para o sistema hexa- 
decimal e bastante facil. Primeiro, vo- 
ce divide o niimero binario em duas par- 
tes de quatro bits cada. Em seguida, ca- 
da uma dessas partes e transformada em 
um digito liexadeciraaL O numcro hexa 
final e composto por esses dois digitos. 
Da mesma Torma, converte-se um nu- 
niero binario de dezesseis bits hexa 
dividindo-o em quatro segmentos de 
quatro bits cada. 

Ja a conversao de decimal para hexa 
e mais complicada, embora nao seja tao 
dificil que voce nao possa reali?.a-la. Pa- 
ra se fazer isso, voce precisa dividir o 
nilmero decimal por 16, sucessivamen- 
te. Os restos dessa divisao formarao os 
digitos do mimero em hexa. 

Quando se divide o decimal 1226 por 
16, o resto sera 10. O 10 decimal e A em 
hexa. O re.suliado da divisao (76) e di- 
vidido, por sua vez, por 16, e di 4, com 
resto de 12 (C em hexa). Finalmente, 4 
dividido por 16 d^ zero, com 4 de res- 
to. Conclusao: 1226 em decimal e 4CA 
em hexa (note a seqiiencia inversa a di- 
visao para os digitos hexa). Para apren- 
der melhor como funcionam todas es- 
sa,s conversoes, digite o programa 
abaixo. 

a 

20 CLS 

30 PRINT eii . "BIN.DECHEX" ; 

40 PBINT 668, "BINARIO" ; 

50 PRINT el 96, "DECIMAL" ; 

60 PRINT e323, "HEXADECIMAL" ; 

70 PRINT §355, "+ + + - " ; 

80 PRINT 6371 ,"+ + + = " : 

90 FOR J=l TO ISrPOKE 1040+32*J 

,175: NEXT 

100 PRINT e450,"NUMEfiO HEX- 



THEN 1 



NO AND 255 : GOTO 170 

150 IF INS»"B" THEN N0-N0-1:NO= 

NO AND 255 :G0T0 170 

160 GOSUB 370 

170 GOSUB 190: GOSUB 270 

160 -GOTO 130 

190 FOB X'7 TO STEP-1 

200 IF (NO AND 2-X)THEN N-1 ELSE 



110 


PRINT 6227 


"+ -t- 


+ 


+ + "; 




120 


GOTO 170 




130 


INS'INKEYS 


IF INS 


30 






140 


IF INS-- " 


THEN N 



N-0 
210 PRINT ei25-X*4,N; 
220 IF N-1 THEN N=INT (2'-X) :NS=S 
TH$ !N) :NS-MID3 (NS , 2 , LEN (NS) -1) E 
LSE NS=RIGHTSC" " . LEN {STB5 (2 " 
X))-l) 

230 PRINT e255-X*4-LENtNS) ,NSr 
240 NEXT 

250 PRINT §279," - ";«1D$(STHS( 
N0)+" ",2,3); 
260 RETURN 

270 FOR X-7 TO 4 STEP -1 
280 PRINT «374-X*3,STRS( (NO AND 

2-X)/16) ; 
290 NEXT 

300 PRINT e367.HEX$(NO/16) : 
310 FOR X=3 TO STEP -1 
320 PRINT 6378-X*3,STR$(NO AND 
2'X) ; 
330 NEXT 

340 PRINT §383,HEXS(NO AND 15); 
350 POKE 14B8.PEEKti391) :POKE 1 
489.PEEK(1407) 
360 RETURN 

370 NU$-"":PRINT 6439,"?"; 
390 INS-INKEYS:IF (INS<"0" OR IN 
S>"9") AND INS<>CHRS(13} THEN G 
OTO 360 

390 IF 1NS-CHRS(13) THEN NO-VAL 
(NUS):IF NO>255 THEN 370 ELSE P 
RINT 6439, STRINGS (5. CHBS (123) ) : 
: RETURN 

400 IF IN$<>CHB$(13) AND LEN (N 
U$)>2 THEN 380 
410 NU$-NUS+IN$; PRINT 6441, MIDS 

(NU$+" ".1.3) ; :GOTO 380 



20 CLS 

25 PLOT 140,0: DRAW 0,160 

30 PRINT INVERSE 1 ;AT 0,8;" 

BIN, DEC, HEX " 

40 PRINT INVERSE 1;AT 4,2;" 

BINARIO: 

50 PRINT INVERSE 1 ;AT 9,2;' 

DECIMAL: 

60 PRINT AT 10.5;"+ + + 

+ + ■!-+' 
70 PRINT INVERSE 1;AT 17,2;' 
HEXADECIMAL: " 

80 PRINT AT 18.4:"+ + + -' 
90 PRINT AT 18,20;"+ + + ■ 



100 LET no-0 

110 GOTO 150 

120 LET a$~INKEYS 

THEN GOTO 120 

130 IF aS-" " THEN 

1 : IF nO-256 THEN 

135 IF aS-"b" THEN 



IF aS-"" 

LET iio»no+ 

LET no-0 
LET no-no- 



no 
GOSUB 250 



1 ; IF no— 1 THEN LET no-255 

140 IF a$-"b" OR aS-" " THEN 

GOTO 150 

145 INPUT "7" 

150 GOSUB 170; 

160 GOTO 120 

170 LET nu-no: LET c-iia 

175 FOR X-0 TO 7 

180 LET n-0: IF nu>-c THEN 

LET n-1 : LET nu-nu-c 

190 LET c-c/2 

200 PRINT AT 5,2+4*Jt;n 

210 IF n-1 THEN PRINT AT 10,2 

+4*x;c* 2 

220 IF n-0 THEN PRINT AT 10,2 

+4«X;''0 " 

230 NEXT X 

235 PRINT AT 13,6; "TOTAL DECIM 

AL- " ;n o; " 

240 RETURN 

250 LET hi-INT (no/163 : LET hh 

-hi 

260 LET lo-(no-hl*16) : LET 11» 

lo; IF lo>9 THEN LET lo-lo+7 

265 IF hi>9 THEN LET hl-hi+7 

270 LET hl-hl+48: LET lo-lo+48 

280 PRINT AT 16,14;CHR5 hi; AT 

18,30; CHRS Id 

290 LET C-e 

300 FOR X-0 TO 3 

310 LET n-0: IF hh>-c THEN 

LET n-c : LET hh-hh-c 




Nos micros TRS-Co!or, TRS-80 
(com BAS(C em disquete) e MSX, exis- 
tem fun^des especlficas para conver- 
ter decimals em hexas. Essas funpoes 
sao W corresponde a um nijmero ou ex- 
pressao em decimal); 



amm 



HEX$ (dl 

Se voc6 quiser incluir numaros em 
hexadecimal como parte de um progra- 
ms (por exempio, dentro de deciara- 
paes DATA), tamb6m nao hd problema 
para fnuitos computadores. Ao utilizar 
essas constantes em hexa para c^icu- 
los subseqiJentes, o computador os 
converter^ internamente em decimal 
(ou, mais propriamente, em bin^rlo). 



Qafh'^ 



Coloque &H antes do niSmero. Exem- 
pio: &HF3 



UM 



ss 



Cotoque $ antes do ndmero. 
ixemplo: $F6. 



315 LET m-O: IF ll>-e THEN 

LET m-c : LET U-ll-c 

320 LET C-c/2 

330 PRINT AT 18,2+x*3!niAT 18, 

18+x*3; m 

340 NEXT X 

4 00 PRINT AT 21,6; "TOTAL HEX- 
"jCHRS hi;CHHS lo 

5 00 RETURN 



20 CL3 

30 PRINT AT 0,9; "BIN, DEC, HEX" 
40 PRINT AT 4,4; "BINARIO:" 
50 PRINT AT 9,4; "DECIMAL:" 
60 PRINT AT 10,5; "+ + + 

+ + " 
70 PRINT AT 17,4; "HEXADECIMAL; 



80 


90 


100 


110 


120 


125 


130 


131 


132 


135 


136 


137 


140 


TO 15 


145 


150 


155 


160 


170 


171 


175 


180 


185 


186 


190 


200 


210 


*X;C* 


220 


*X;"0 


230 


235 


L- "i 


240 


250 


255 


260 


261 


270 


275 


280 


8,30; 


290 


300 


310 


311 


312 


315 


316 


317 


320 


330 



'+ + + 

;"+ + -1- 



H " 



PRINT AT 18,4;' 

PRINT AT 18,20 

LET NO-0 

GOTO 150 

LET AS-INKEY$ 

IF AS-"" THEN GOTO 120 

IF A$<>"F" THEN GOTO 135 

LET NO-NO+1 

IF NO-256 THEN LET NO-0 

IF AS<>"B" THEN GOTO 140 

LET NO-NO-1 

IF N0--1 THEN LET NO-255 

IF A$-"B" OR AS-'F" THEN GO 



INPUT NO 

GOSUB 170 

GOSUB 250 

GOTO 120 

LET NU-NO 

LET C-128 

FOR X-0 TO 7 

LET N-0 

IF NU>-C THEN LET N-1 

IF NU>-C THEN LET NU-NU-C 

LET C-C/2 

PRINT AT 5,2+4*X;N 

IF N-1 THEN PRINT AT 10,2+4 

2 

IF N-0 THEN PRINT AT 10,2+4 

NEXT X 

PRINT AT 13,6; "TOTAL DECIKA 

NO;" " 

RETURN 

LET HI-INT (NO/16) 

LET HH-HI 

LET LO- (NO-HI*16) 

LET LL-LO 

LET HI-HI+2e 

LET LO-LO+28 

PRINT AT 18,14;CHRS HI; AT 1 

CRR5 LO 

LET C-8 

FOB X-0 TO 3 

LET N-0 

IF HH>-C THEN LET N-C 

IF HH>-C THEN LET HH-HH-C 

LET M-0 

IF LL>-C THEN LET M-C 

IF LL>-C THEN LET LL-LL-C 

LET C-C/2 

PRINT AT 18.2+X*3;N;AT 18.1 



8+X*3;M 

340 NEXT X 

400 PRINT AT 21, 6; "TOTAL HEX- 
;CHRS HI;CHR$ LO 

500 RETURN 



ffU 



5 KEY OFF 

10 SCREENO 

15 COLOR 1,9 

20 CLS 

30 LOCATE 10,0: PRINT" BIN, DEC, H 

EX " 

40 LOCATE 2, 4: PRINT" BINARIO: 

H 

50 LOCATE 2, 9: PRINT" DECIMAL: 

60 LOCATE 3,10:PR1NT"+ + + 

+ + + +" 

70 LOCATE 2,17:.PHINT" HEXADECI 
MAL:" 

80 LOCATE 4, 18: PRINT '+ + + 

90 LOCATE 20, 18: PRINT "+ + + 

100 LET N0=0 
110 GOTO 150 
120 LET AS-lNKETf$:IF AS-"" THEN 

GOTO 120 
130 IF AS-" " THEN LET NO-NO+1: 
IF NO-256 THEN LET NO-1 
135 IF A$-"B" THEN LET NO-NO-1: 
IF N0--1 THEN LET NO-255 
140 IF AS-"B" OH AS-" " THEN GO 
TO 150 

145 LOCATE 30 , ; INPUT NO 
150 GOSUB 170: GOSUB 2 50 
160 GOTO 120 
170 LET NU-NO :LET C-128 
175 FOR X-0 TO 7 

180 LET N-0: IF NU>-C THEN LET N 
-1:LET NU-NU-C 
190 LET C-C/2 

200 LOCATE 2+4*X , 5 : PRINT USING 
" I " i N ; 

Zlo'lF N-1 THEN LOCATE 4*X,10:P 
HINT USING "III" ;C*2 
220 IF N-0 THEN LOCATE 4*X.10;P 
RINT USING "!•#" ;0 
230 NEXT X 
235 LOCATE 6, 13: PRINT 



'TOTAL DE 



CIMAL-";NO;" " 

240 RETURN 

250 LET HI-INT{N0/16) :LET HH-HI 

260 LET L0-(N0-HI*16) :LET LL-LO 

:IF L0>9 THEN LET LO-LO+7 

265 IF HI>9 THEN HI-HI+7 

270 LET HI-Hl+4e:LET L0-L0+4e 

280 LOCATE 14, 18 -PRINT CHRS(HI3 

285 LOCATE 30, 18: PRINT CHRS(LO) 

290 LET C-8 

300 FOR X-0 TO 3 

310 LET N-0: IF HH>-C THEN LET N 

-C:LET HH-HH-C 

315 LET M-O: IF LL>-C THEN LET M 

-C:LET LL-LL-C 

320 LET C-C/2 

330 LOCATE 2+X*3,18:PHINT USING 

"c-;N? 



inmcit. 



mmfwiVtfim 



llllllll 



335 LOCATE ie+!i*3, IB: PRINT USIN 

0"t-;M; 

340 NEXT LOCATE 

400 LOCATE 6 . 21 :PRINT"TOTAL HEX 

- " rCHRS(HI) ;CHRS(LO) ; 

500 RETURN 



LMjka 








20 


HOME 








25 


POKE 34, 


22 






30 


INVERSE 


; HTAB 14: PRINT "B 


IN, DEC. HEX" 








40 


VTAB 6; 


HTAB 5; 


PRINT ' 


'BINA 


RIO' 










50 


VTAB 10 


HTAB 5 


PRINT 


"DEC 


IMAL" 








60 


VTAB 16 


HTAB 5 


PRINT 


"HEX 


ADECIMAL- 








70 


VTAB 22 


HTAB 3 


PRINT 


"NUM 


ERO 


HEX- 


n 






80 


VTAB 17 


PRINT ' 


+ 


+ 


+ 


f - 


HTAB 21 


PRINT 


n 


+ 


+ + 


^ F 






90 


VTAB 11: 


PRINT " + 


+ 


+ + 


+ + 


+ 


rt 


110 


GOTO 170 






120 


VTAB 22 


: CALL 


- 958: 


HTAB 


30 


GET INS 








130 


IF IN$ 


- CHRS 


(32) THEN N 


- 


NO + i: 


IF NO - 


256 THEN NO 


140 IF XN$ 


- CHRS 


(66) THEN N 


- 


NO - 1: 


IF NO - 


- 1 THEN N 


- 


255 








150 


IF IN$ 


< > CHRS (32) 


AND 


IN$ < > CHRS (66) 


THEN 


GOSU 


B 410 








170 


GOSUB 190: GOSUB 270 




leo 


GOTO 120 






190 


NU - NO: 


C - 12B 


FOR X 


- 7 


TO STEP - 


1 






200 


N - 0: IF NU > 


- C THEN N 


- 1 


NU - NU 


- C 






205 


C - C / 


2 






210 


VTAB 7 : 


HTAB ABS fX - 


7) 


• 5 


+ 1 : PRINT " " , 


Nj" - 




220 


IF N - 


1 THEN N - 2 ~ 


X:NS 


- 


STBS (N) 


; GOTO 230 




2 25 


NS - - 


0- 






230 


VTAB 11 


: HTAB 


ABS (X 


- 7) 


* 5 + 1 + (3 - LEN (NS) ) : 


PRI 


NT N5 








240 


NEXT 








250 


VTAB 13 


r HTAB E 


: PRINT 


■ "TO 


TAL 


DECIMAL- 


" i NO ; " 


" ; : CALL - 


868 








260 


RETURN 








270 


HI - INT CNO / 


16) :HH 


- HI 


200 


LO - (NO 


- HI * 


16) :I,L 


- LO 


: IF LO > 9 


THEN LO 


- LO + 


7 



290 IF HI > 9 THEN HI - HI + 7 
300 HI - HI + 48:L0 - LO + 48 
310 VTAB 17: HTAB 19: PRINT C 
HRS (HI);; HTAB 38; PRINT CHRS 

(LO) 
320 C - 8 

330 FOR X - TO 3 
340 N - 0: IF HH > - C THEN N 

- C:HH - HH - C 

350 M - 0: IF LL > - C THEN M 

- C:LL - LL - C 




360 C - C / 2 

370 VTAB 17: HTAB X * 4 + 2: P 

RINT N;: HTAB X * 4 + 22: PRINT 

M 
380 NEXT 

390 VTAB 22: HTAB 15: PRINT C 
HRS (HI) ; CHRS (LO) 
400 RETURN 

410 VTAB 23: HTAB 30: INPUT NO 
420 IF NO > 255 OR NO < THEN 

410 
430 NORMAL ; VTAB 23: HTAB 30: 

PRINT " " : INVERSE : RETU 
RN 



Uma vez digitado o programa, rode- 
o com o comando RUN. Aparecerao na 
tera tres linhas: uma contendo os di'gi- 
tos do niimero em bindrio; mais abai- 
xo, a linha do niimero em decimal; e, 
por ultimo, OS dois segmentos do niime- 
ro em hexadecima!. 

Inicialmente, todos esses niimeros es- 
tao zerados. Ao pressionar a tecla de es- 
pafamento {a tecla F na versao para o 
ZX-Sl), o numero binario no topo da 
tela ser^ incrementado de 1 e seus equi- 
valentes em decimal e hexadecimal apa- 
recerao na parte de baixo da tela. O 
equivalente decimal e calculado 
somando-se os valores (potencias de 2) 
correspondentes as posigoes onde um di- 
gito binirio 6 igual a 1, Exemplo; 

BINARIO: 

1001 10 



DECIMAL: 

+ + 32 + + + 4 + 2 + = 38 

POTfiNCIAS DE 2; 

2^2*2*2*2^2*2^2° 

O mesmo m^todo de conversao ^ uti- 
lizado para o sistema hexadecimal; ape- 
nas, neste caso, formam-se quairo gru- 
pos de quatro bits de cada vez. 

Pressionando a tecla < B > , voce di- 
minuira 1 do numero registrado na te- 
la. Ao mesmo tempo, se voce pressio- 
nar qualquer outra tecla, 3\tm da barra 
de espa^os ou da letra B, podera orde- 
nar rapidamente ao computador que 
converta para bindrio e hexadecima] um 
niimero qualquer em decimal entre e 
255. Ao pressionar qualquer tecla, apa- 
recerd em um canto da tela um sinal de 
interrogacjao. Digite entao o numero de- 
sejado e acione < ENTER > ou < RE- 
TURN > . Ato continuo, os niimeros 
equivatentes em binario e hexa serSo 
mostrados no video. 

Note que o nslmero maximo que po- 
de ser representado por um byte de oito 
bits em bindrio 6 llllllll, Isso equi- 
vale a 255 em decimal e a FF em hexa- 
decimal. Qualquer numero armazenado 
em um byte na memoria do seu compu- 
tador pode ser representado por um va- 
lor em hexa com dois digitos. 

Com o tempo, voce verificari que es- 
sas conversdes n3o sio tio diQceis quan- ^ 
io parecem a principio, B 




1 



sistema hexadecimai parece dif icil e 
complicado. Nao seria possivel passar 
sem ele? Afinal, & realmente necessd- 
rio aprende-lo para oparar em lingua- 
gem de mdquina? 

Sim. Se voc^ tern a intenpao de 
aprender sertamente a programar em 
c6digo de mSquina, um bom conhect- 
mento sobre como trabalhar com o sis- 
tema hexadecimal 6 imprescindivel, 

Existem programas prontos para fa- 
zer a conversao autom^tica de codigos 
de Dperapao em niimeros bin^rios (As- 
sembler) ou B conversao no sentido in- 
verso (Disassembler). AI6m disso, eles 
aceitam numeros expresses no siste- 
ma decimal. No entanto, mesmo nes- 
ses cases, o programador precisa re- 
cofrer constantemente aos seus equi- 
valentes hexadecimais. Muitas vezes, 
certas listagens emitidas por tais pro- 
gramas (DUMP) contem apenas nume- 
ros hexadecimais. E vocd nao saberia 
trabalhar com eles se nao conhecesse 

sistema de base 16. 

Em ligoes posteriores, aprendere- 
mos a fazer Assembly manualmente: o 
conhecimerto do sistema hexadecimal 
serS um pr§-requisito para entendS-las. 

Com o tempo e a pr^tica, vocS veri 
que a dificuldade desse sistema 6 ape- 
nas aparente. Na verdade, ele 6 tao 
simples e f^cit quanto o sistema deci- 
mal ou qualquer outro, 

Como devo fazer para reconvertar de 
hexa para decimal? 

Cada digito de um nijimero em hexa 
vale 1 6 vezes o digito a sua direita. Pa- 
ra converter um numero em hexa, co- 
mo F6DA, por exemplo, deve-se tomar 
inicialmente o primeiro digito da direi- 
ta e converte-lo para notapao decimal. 
No exemplo, A equivale a 1 0. prdxi- 
mo digito S esquerda vale 16 vezes 
mais; assim, convertemos D para de- 
cimal (o que dS 1 3!, e realizamos a ope- 
rapao: 13 x 16 = 208. pr6ximo di- 
gito h esquerda vale 1 6 vezes mais; as- 
sim, multiplicamos 6 x 16 x 16 = 

1 536. ultimo dfgito do exemplo pre- 
cisa tamb^m ser multiplicado por 16, 
F vale 1 5, assim temos 15x 16x 16 

X 16 = 61440. Somandotodos OS va- 
lores obtidos temos 10 + 208 ■+ 1536 
+ 61440 = 63104, em decimal, 

Ou entao use o programs listado 
aqui para converter o niimero hexa de 
dois em dois digitos de cada vez, e de- 
pois muttiplique o par mais ^ esquerda 
por 256. 



NUMEROS MAIOHES 



Como um computador de oito bits 
representa niimeros maiores do que 255? 
Simplesmente quebrando-os em duas 
partes de oito bits cada e colocando-os 
em duas memorias adjacentes. Assim, 
o computador armazena qualquer nu- 
mero ate FFFF era hexa, ou 65 535 em 
decimal. 

O FFFF e um valor importante em 
computadores pessoais de oito bits, pois 
e o numero maximo de posigoes ende- 
re^avei-s de memdria RAM. 

Numeros maiores ainda do que esses 
podem ser armazenados atraves do mes- 
mo estratagema: dividi-los em tres, qua- 
tro ou ate mai? porfoes dc oito bil.s, 

A maneira como esses bytes sao or- 
ganizado-S depende do computador. A 
maior parte dos micros que usam o BA- 
SIC armazenam os bytes de menor va- 
lor (chamados LSB, ou leasl signifkanl 
byte) nas memorias de enderefjo mais 
baixo, e os bytes de maior valor (MSB, 
ou niosl significant byte), nas memorias 
de enderego mais alto. 

Outros computadores, como os com- 
paiiveis com o TRS-Coior, fazem exa- 
tamente contrario. 

Suponhamos agora que voce queira 
enconirar o niimero decimal equivalen- 
te a dois hexadecimais armazenados em 
compartimentos vizinhos de memdria 
(um numero maior do que FF, quebra- 
do em dois). 

Nos microcomputadores das linhas 
Sinclair, TRS-80. MSX e Apple 11 bas- 
la converter os dois hexadecimais (H 1 
e H2) para decimal (D) e depois fazer 
a seguinte operapao: 




Veja como o programa de conver5>ao 
entre bases aparece na (ela dos microcom- 
puladores. A di.spu^icao da Ida e bastanle 
pareeida a enin, niis micros de otilras li- 
nhas. Agora fka maiii (Ac\\ enttnder co- 
mo OS tres sistema» numericos funcio- 
nam. Qusndo >»« manda execular o 
priigrdma. as tres linha<i sao zeradas, 
Pressione a letra B para diminuir ii valor 
dc I na tela, e a linha de binario ficsri 
loialmentf cheia de Is. [.ogo abai.io, a li- 
nha decimal ird rtimpletar-se com lodas 
as puiencia^i dv 2. l>a direita para a es> 
querda voce lerd os valiires: 1 (i^ue e 2), 
2 (que i 2K 4 (ou 2), etc. A linha hexade- 
cimal, mak abaixo, funciona da mesma 
forma, s6 que os dois digitus hexs S! 
cnmputados independenleRl<?nle, 



D = HI - 256 + H2 



i 



Nos micros compativeis com o TRS- 
Color, a expressao usada e a mesma, 
mas a ordem de HI e H2 e inversa; ou 
seja, byte de maior valor aparece an- 
tes do menor byte. 



O SISTEMA OCTAL 




Existem apenas quatro sistemas de 
numera^ao que podem ser ulilizctdos 
com vantagem na programa<;ao e 
opera^do de computadores digitals. 
Vocijd conhece tres deles: o sistema 
bin^rio, que e o natural para um 
computador digital; o sistema deci- 
mal, espontaneamente utHizado pe- 
lo ser humano; e o sistema hexadeci- 
mal, cuja base (16) e uma potencia de 
2, Essa correspondencia facilita etior- 
memenie sua utilizai-do pelo pro- 
gramador. 

O quarto sistema de numeragao 
que pode ser usado com computado- 
res digitals e o sistema octal, ou se- 
ja, de base 8, que e tamhem uma po- 
tencia do numero 2, Apesar disso, o 



octal esfd enlrando em desuso, pois 

nao foi universalmente adotado pe- 
los fabricantes de microcompu- 
tadores. 

O octal tern 8 di'gilos: 0, 1,2, 3, 
4, 5, 6, 7eS. O sistema de con versdo 
de um niimero em octal para decimal 
e semeihanle ao usado com o hexa- 
decimal, so que o multiplicador e S. 
Por exemplo: 

423 ^ 4 X 64 + 2 X 8 + 3 = 275 

Alguns computadores pessoais 
permitem representor constames em 
octal (&0), ou tem /undoes de conver- 
sao (OCTS), 
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^^^^ftBi 


»-;->. ^ 


syr^.- 








^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 


^ 


-y 


^ 


h!!<i 


,1 


microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 


I - 


—r- 


.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 


■ ■ 


m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



IIIIIIIIIIHBNO PR6XIMO IMUMEROHHIIIIIIII 



PROGRAMAQAO DE JOGOS 

Aprenda a fazer contagem de tempo e de pontos no computador, 
tornando seus jogos ainda mais emocionantes. 

aplicacOes 

Como utilizar o computador para organizar seu arquivo e 
manter em ordem as suas colecoes. Armazene informacoes. 

PROGRAMApAO BASIC 

O que sao, na pratica, as instrupoes GOTO e GOSLfB. Programas 
para calculo, adivinhacao e jogos de dados. 



pjOG*^ 



lA^^^O 



COBSO**^ 



progrm^^ 



A0B^5\<^ 



,PR0GR^ 



fAAC;^0°' 



t JOGOS 
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